home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT IoPageLock.xpl < prev    next >
Text File  |  2003-12-06  |  3KB  |  95 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="System\Memory\"
  5. "NAME"="I/O Lock Pages"
  6. "VERSION"="2.15"
  7. "OSVERSION"="0101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="IO Size"
  10. "DESCRIPTION 1"="This option allows you to change the maximum number of bytes that can be locked for I/O (Input/Output) operations."
  11. "DESCRIPTION 2"="If you have some extra RAM and an active file system, you can speed up file system activity by increasing this setting beyond the default 512 KB."
  12. "DESCRIPTION 3"="NOTE: Please check only one single box."
  13. "DESCRIPTION 4"="NOTE #2: This settings works on NT 4.0 and Windows 2000 RTM only! SP1 and upwards will no longer make use of this setting."
  14. "WARNING"="1"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to CptSiskoX for his help!"
  19. "COMMENT 2"="Thanks to John Hansen [sasjwh@wnt.sas.com] for the Windows 2000 part!"
  20. "COMMENT 3"="Thanks to Thomas Koschate [koschate@bigfoot.com] for the CDR bug-notice."
  21. "COMMENT 4"="Thanks to Nostradamus [mailto:nostradamus-@gmx.net] for the plugin supplement."
  22. "COMMENT 5"="Thanks to Serdar Yegulalp's Nesletter for the != W2K notice."
  23.  
  24.  
  25. sV1="HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Memory Management\IoPageLockLimit" 'DW 
  26. Sub Plugin_Initialize 
  27.  Call SetUIElement(1,"(1) 512 KB (Default)")
  28.  Call SetUIElement(2,"(2) 4096 KB (for 32+ MB computers)")
  29.  Call SetUIElement(3,"(3) 8192 KB (for 64+ MB computers)")
  30.  Call SetUIElement(4,"(4) 16384 KB (for 128+ MB computers)")
  31.  Call SetUIElement(5,"(5) 32768 KB (for 160+ MB computers)")
  32.  Call SetUIElement(6,"(6) 65536 KB (for 256+ MB computers)")
  33.  Call SetUIElement(7,"(7) 131072 KB (for 512+ MB computers)")
  34.  
  35.  i=RegReadValue(sV1)
  36.  
  37.  if IsEmpty(i)=false then
  38.     if i=0 then     Call SetUiElementEx(1,true)
  39.     if i=4096 then  Call SetUiElementEx(2,true)
  40.     if i=8192 then  Call SetUiElementEx(3,true)
  41.     if i=16384 then Call SetUiElementEx(4,true)
  42.     if i=32768 then Call SetUiElementEx(5,true)
  43.     if i=65536 then Call SetUiElementEx(6,true)
  44.     if i=131072 then Call SetUiElementEx(7,true)
  45.  else
  46.     Call SetUiElementEx(1,true)
  47.  end if
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54.  
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  e=0
  58.  for i=1 to 7
  59.      if GetUIElementEx(i)=true then e=e+1
  60.  next
  61.  
  62.  if e>1 then 
  63.     Call MsgError("Please select only one item!")
  64.  else
  65.    i=empty
  66.    if GetUIElementEx(1)=true then i=0
  67.    if GetUIElementEx(2)=true then i=4096
  68.    if GetUIElementEx(3)=true then i=8192
  69.    if GetUIElementEx(4)=true then i=16384
  70.    if GetUIElementEx(5)=true then i=32768
  71.    if GetUIElementEx(6)=true then i=65536
  72.    if GetUIElementEx(7)=true then i=131072
  73.  
  74.    if isempty(i)=false then
  75.       if i=0 then
  76.          If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  77.       else
  78.          Call RegWriteValue(sV1,i,2)
  79.       end if
  80.  
  81.       Call Restart()
  82.    else
  83.       Call MsgError("Please select a value!")
  84.    end if
  85.  end if
  86.  
  87. End Sub
  88.  
  89.  
  90. Sub Plugin_Terminate 
  91. End Sub
  92.  
  93.  
  94.  
  95.